-- card: 10200 from stack: in
-- bmap block id: 10246
-- flags: 0000
-- background id: 6859
-- name: meteor
----- HyperTalk script -----
on openCard
  hide cd fld data
  put "("& word 4 of the long date&")" into cd fld year
  pass openCard
end openCard

on mcalc
  get word 4 of the long date
  if it ≠ last word of cd fld data then meteor
end mcalc

on meteor
  global h,m,intl
  put "                              " into spaces
  put empty into cd fld meteors
  put number of lines of cd fld data into lin
  repeat with i=1 to lin-1
    put line i of cd fld data into mdat
    put item 1 of mdat into shower
    put item 2 of mdat into s0
    put item 3 of mdat into s1
    put item 4 of mdat into j5
    put word 4 of the long date into y
    put y into line lin of cd fld data
    put number of chars of shower into nch
    put word 4 of the long date into y
    put (y-1950)/100 into t5
    put s0+t5*(s1+1.39663+.0003*t5) mod 360 into s
    put j5+t5*(36525.636+s1) into j
    repeat 2
      set cursor to busy
      put (j+17980)/36525 into t
      put 279.7+t*(36000.769+.0003*t) into l
      put 358.48+t*(35999.05-.0002*t)into m
      put (l+sind(m)*(1.92-.005*t)+.02*sind(2*m)) mod 360 into s5
      subtract (s5-s)/(.986+.033*cosd(m)) from j
    end repeat
    put (j+16519.5-DSTCheck()/24) into jd
    put jd*86400 into sec
    put sec - sec mod 1 into sec
    convert sec to dateItems
    if intl is empty then
      get char 2 to 4 of last word of line 4 of cd fld coords of cd origin
      if item 2 of sec<4 or item 2 of sec>10 then
        put "S" into char 2 of it
      else
        put "D" into char 2 of it
      end if
    else
      get empty
    end if
    convert sec to long date
    put jd mod 1 * 24 into arg
    hm false,arg
    put trunc (h+m/60+.5) into h
    put shower&& char 1 to (18-nch) of spaces & sec && "at"&&h &"h" && it into line i of cd fld meteors
  end repeat
  ftype "meteors",14
end meteor


-- part 1 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=29 top=77 right=303 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15036
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: meteors


-- part 2 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=30 top=79 right=319 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data


-- part 3 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=466 top=148 right=188 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 4450 / 4450
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  meteor
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=335 top=41 right=72 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14991
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: year


-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=348 top=21 right=37 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Data
----- HyperTalk script -----
on mouseUp
  if short name of me contains "Show" then
    set name of me to "Hide Data"
    show cd fld data
  else
    set name of me to "Show Data"
    hide cd fld data
  end if
end mouseUp



-- part contents for card part 2
----- text -----
Quadrantids,282.9,-.4,285.3
Lyrids,31.7,.06,393.9
Eta Aquariids,44,0.3,406.6
June Lyrids,84.5,.06,447.9
S. Delta Aquariids,125,-1,491.2
N. Delta Aquariids,139,-1,505.2
Perseids,139.2,.03,506
Orionids,207.7,.4,576.2
Taurids,220,.44,588.5
Leonids,234.3,1.5,602.7
Geminids,261.4,0,629.5
1990

-- part contents for card part 4
----- text -----
(1990)

-- part contents for background part 11
----- text -----
Sidereal Time = 5:46
5.766832

-- part contents for background part 12
----- text -----
Universal Time = 21:22
21.377222

-- part contents for card part 1
----- text -----
Quadrantids        Wednesday, January 3, 1990 at 18h EST
Lyrids             Sunday, April 22, 1990 at 12h EDT
Eta Aquariids      Saturday, May 5, 1990 at 6h EDT
June Lyrids        Saturday, June 16, 1990 at 8h EDT
S. Delta Aquariids Saturday, July 28, 1990 at 8h EDT
N. Delta Aquariids Saturday, August 11, 1990 at 23h EDT
Perseids           Sunday, August 12, 1990 at 14h EDT
Orionids           Sunday, October 21, 1990 at 22h EDT
Taurids            Saturday, November 3, 1990 at 6h EST
Leonids            Saturday, November 17, 1990 at 22h EST
Geminids           Friday, December 14, 1990 at 1h EST